home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p2.lha / ImEngV3.41p2 / Extra / ADPro / ADPro_Export_Render.rexx next >
OS/2 REXX Batch file  |  1997-01-09  |  2KB  |  76 lines
  1. /*
  2. ** $VER: ADPro_Export_Render 1.0 (11/7 1996 STOCKHOLM/SWEDEN)
  3. **
  4. ** Copyright © 1996 by Patrik M Nydensten
  5. **
  6. ** This arexx script will export the rendered image data from
  7. ** the PRIMARY image in ImageEngineer to ADPro. Both programs
  8. ** must be running at the same time.
  9. ** This script requires ADPro v2.5.0 (or higher)
  10. ** and ImageEngineer 3.0 (or higher).
  11. **
  12. */
  13.  
  14. OPTIONS RESULTS
  15. SIGNAL ON ERROR
  16. TEMP_FILE = 't:Image_from_IE'
  17.  
  18. if arg()==0 then exit
  19.  
  20. /* Main code */
  21.  
  22. IF ~SHOW(PORTS,'ADPro') THEN DO
  23.      'REQUEST' '"Could not locate ADPro'x2c(27)'s arexx port!"' '" OK "'
  24.     CALL ErrorOut 10
  25. END
  26.  
  27. 'RENDER' arg(1)
  28.  
  29. 'SAVE' arg(1) '"'||TEMP_FILE||'"' '"ILBM CmpByteRun1"'
  30. IF (RC ~= 0) THEN DO
  31.      'REQUEST' '"Error when saving image from IE!"' '" OK "'
  32.     CALL ErrorOut 10
  33. END
  34.  
  35. 'RENDER_CLOSE' arg(1)
  36.  
  37. ADDRESS "ADPro"
  38.  
  39. ADPRO_TO_FRONT
  40.  
  41. LOADER "UNIVERSAL" TEMP_FILE
  42. IF (RC ~= 0) THEN DO
  43.   ADDRESS 'IMAGEENGINEER'
  44.      'REQUEST' '"Error when loading image into ADPro!"' '" OK "'
  45.     CALL ErrorOut 10
  46. END
  47.  
  48. CALL ErrorOut 0
  49.  
  50. /* Errorout procedure */
  51.  
  52. ErrorOut:
  53.     PARSE ARG ExitCode
  54.  
  55.     IF (EXISTS( TEMP_FILE )) THEN DO
  56.       ADDRESS COMMAND "Delete >NIL:" TEMP_FILE
  57.   END
  58.   
  59.     EXIT ExitCode
  60.  
  61. /* IE's error procedure */
  62.  
  63. Error:
  64. if RC=5 then do            /* Did the user just cancel us? */
  65.     IE_TO_FRONT
  66.     LAST_ERROR
  67.     'REQUEST "'||RESULT||'"'
  68.     exit
  69. end
  70. else do
  71.     IE_TO_FRONT
  72.     LAST_ERROR
  73.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  74.     exit
  75. end
  76.